﻿Public Class Form1

    ' Einige Standard Mittelungsboxen

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Information", MsgBoxStyle.Information, "Information") ' Style der MessageBox: Info
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("Fehler", MsgBoxStyle.Critical, "Fehler") ' Style der MessageBox: Fehler
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("Warnung", MsgBoxStyle.Exclamation, "Warnung") ' Style der MessageBox: Warnung
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        MsgBox("Frage", MsgBoxStyle.Question, "Frage") ' Style der MessageBox: Frage
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        MsgBox("Hilfebox", MsgBoxStyle.MsgBoxHelp, "Hilfebox") ' Style der MessageBox: Hilfebox
    End Sub
End Class
